home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ewebedit / webedito.cfm < prev   
Encoding:
Text File  |  1999-06-27  |  9.3 KB  |  199 lines
  1. <!---
  2.  
  3. *******************************   CF_WebEditor Revision History   **************************************
  4. ***************************************   Important   **************************************************
  5. **                                                                                                    **
  6. ** Any bugs or bug fixes should be reported to Duane Boudreau (mailto:dboudreau@ektron.com) at Ektron **
  7. **                                                                                                    **
  8. ********************************************************************************************************
  9.  
  10. Date: 04/04/99
  11. Fixed By: DAB
  12. Bug:  CF_WebEditor not generating proper vbscript if multiple editors are used in a single form                   
  13. Fix:  Added new attributes EditorsInForm (the number of editors in the form) and EditorNumber (the number
  14.       of the current editor in the form). Deleted were the name and returnfield.  The name of the editor
  15.       and the return feild are now generated (eWebEdit1, eWebEdit2... and TextHTML1, TextHTML2...) This
  16.       was required in order to allow the tag to properly generate the vbscript onClick event.    
  17.  
  18. ********************************************************************************************************
  19.  
  20. Date: 04/04/99
  21. Fixed By: DAB
  22. Enhancement:  Added code to check the last character of the CodeBase Attribute                   
  23.  
  24. ********************************************************************************************************
  25.  
  26. Date: 04/06/99
  27. Fixed By: DAB
  28. Bug:  CF 3.1x does not support parsing CFloop within a CFOUTPUT
  29. Fix:  Moved CFLoop out of cfoutput block  
  30. ********************************************************************************************************
  31.  
  32. Date: 04/24/99
  33. Fixed By: WAR
  34. Feature:  Support License3 key
  35.    
  36.  
  37. ********************************************************************************************************
  38.  
  39. Date: 05/09/99
  40. Fixed By: WAR
  41. Feature:  Disable buttons
  42. <param name="AllowCustomize" value="False">
  43. <param name="FontSize" value="2">  What is the Default Font 
  44. <param name="FontName" value="New Times Roman"> what is the default font the editor will use
  45. <param name="Buttons-XXXXX" value="False"> disable a button
  46. ********************************************************************************************************
  47.  
  48. Date: 05/23/99
  49. Fixed By: WAR
  50. Feature:  FTP Image upload
  51. Version 1,6,0,4
  52.     <param name="FTPServer" value="#Attributes.FTPServer#">
  53.     <param name="FTPUsername" value="#Attributes.FTPUsername#">
  54.     <param name="FTPPassword" value="#Attributes.FTPPassword#">
  55.     <param name="ImagesPath" value="#Attributes.ImagesPath#">
  56.  
  57.  ********************************************************************************************************
  58.  
  59. Date: 05/23/99
  60. Fixed By: WAR
  61. Feature:  Extra <BR>, Hyperlink grey out   
  62. Version 1,6,0,4 
  63.  
  64.  ********************************************************************************************************
  65. Date: 06/11/99
  66. Fixed By: WAR
  67. Feature:  WDDX support, for FONT Face, Image dialog, Hyperlink dialog 
  68. Error hadling first time you install the editor and the OS wants you to reboot. 
  69. Version 2,2,0,0             
  70.  
  71. Date: 06/19/99
  72. Fixed By: WAR
  73. Feature:  2 Images, font size of image tag is 1, characters after image tag
  74. Error hadling first time you install the editor and the OS wants you to reboot. 
  75. Version 2,2,0,0 
  76. Reverted back to VB 5.0 run time, stop the re-boot from happening on every machine 
  77. able to insert a new hyperlink/image immediately before or
  78. after another one. Previously you could only edit it because the
  79. hyperlink/image would be selected if the cursor was left or right of the
  80. hyperlink/image. Now the cursor must be within the hyperlink/image to edit
  81. it.
  82.  
  83. * BUG FIX: An image at the end of a line no longer produces an extraneous
  84. </I>, </B>, or <BR> etc.
  85.  
  86. * BUG FIX: After inserting an hyperlink/image, the font attributes (color,
  87. italic, etc) will be restored to the attributes prior to the
  88. hyperlink/image. This makes typing text after inserting much easier
  89. (assuming the prior text was not another hyperlink/image, in which case the
  90. attributes will need to be manually changed).
  91.  
  92. * ENHANCEMENT: Image tags now appear as font size 1 in the editor.
  93.  
  94.  
  95.  ********************************************************************************************************
  96. Date: 06/27/99
  97. Fixed By: WAR
  98. Feature:  Background color and Foreground color property, Hyperlink select text and click hyperlink, text not captured 
  99. FTP upload WinProxy server bug fix            
  100.           
  101.                       
  102. ---> 
  103.  
  104. <cfparam name="Attributes.CodeBase" default="/controls/">
  105. <cfparam name="Attributes.Version" default="2,3,0,0">
  106. <cfparam name="Attributes.License" default="">
  107. <cfparam name="Attributes.License2" default="">
  108. <cfparam name="Attributes.License3" default="">
  109. <cfparam name="Attributes.Font" default="Arial">
  110. <cfparam name="Attributes.Height" default="1">
  111. <cfparam name="Attributes.Width" default="1">
  112. <cfparam name="Attributes.EditorNumber" default="1">
  113. <cfparam name="Attributes.EditorsInForm" default="1">
  114. <cfparam name="Attributes.HTMLCode" default="<b>Hello</b>">
  115. <cfparam name="Attributes.Form" default="frmMain">
  116. <cfparam name="Attributes.Button" default="Submit">
  117. <cfparam name="Attributes.FontSize" default="2">
  118. <cfparam name="Attributes.AllowCustomize" default="True">
  119. <cfparam name="Attributes.ButtonsEdit" default="True">
  120. <cfparam name="Attributes.ButtonsFontSize" default="True">
  121. <cfparam name="Attributes.ButtonsFontStyle" default="True">
  122. <cfparam name="Attributes.ButtonsFontColor" default="True">
  123. <cfparam name="Attributes.ButtonsBullets" default="True">
  124. <cfparam name="Attributes.ButtonsIndent" default="True">
  125. <cfparam name="Attributes.ButtonsAlign" default="True">
  126. <cfparam name="Attributes.ButtonsHyperlink" default="True">
  127. <cfparam name="Attributes.ButtonsPicture" default="True">
  128. <cfparam name="Attributes.ButtonsAbout" default="True">
  129. <cfparam name="Attributes.FTPServer" default="ftp.idontknow.com">
  130. <cfparam name="Attributes.FTPUsername" default="">
  131. <cfparam name="Attributes.FTPPassword" default="">
  132. <cfparam name="Attributes.ImagesPath" default="images">
  133. <cfparam name="Attributes.WDDX" default="">
  134. <cfparam name="Attributes.BackColor" default="&hffffff">
  135. <cfparam name="Attributes.ForeColor" default="&h000000">
  136.  
  137. <cfif (Right(Attributes.Codebase, 1) neq "/") AND (Right(Attributes.Codebase, 1) neq "\") AND Attributes.Codebase neq "">
  138.     <cfset Attributes.Codebase = Attributes.Codebase & "/"> 
  139. </cfif>  
  140.  
  141. <cfoutput>
  142. <object classid="clsid:5D479C55-C4BA-11D2-B97C-002078159EC3" codebase="#Attributes.CodeBase#eWebEdit.CAB##version=#Attributes.Version#" width="#Attributes.Width#" height="#Attributes.Height#" border="0" name="eWebEdit#Attributes.EditorNumber#" id="eWebEdit#Attributes.EditorNumber#">
  143.     <param name="License" value="#Attributes.License#">
  144.     <param name="License2" value="#Attributes.License2#">
  145.     <param name="License3" value="#Attributes.License3#">
  146.     <param name="TextHTML" value="">
  147.     <param name="AllowCustomize" value="#Attributes.AllowCustomize#">
  148.     <param name="FontSize" value="#Attributes.FontSize#">
  149.     <param name="FontName" value="#Attributes.Font#">
  150.     <param name="ButtonsEdit" value="#Attributes.ButtonsEdit#">
  151.     <param name="ButtonsFontSize" value="#Attributes.ButtonsFontSize#">
  152.     <param name="ButtonsFontStyle" value="#Attributes.ButtonsFontStyle#">
  153.     <param name="ButtonsFontColor" value="#Attributes.ButtonsFontColor#">
  154.     <param name="ButtonsBullets" value="#Attributes.ButtonsBullets#">
  155.     <param name="ButtonsIndent" value="#Attributes.ButtonsIndent#">
  156.     <param name="ButtonsAlign" value="#Attributes.ButtonsAlign#">
  157.     <param name="ButtonsHyperlink" value="#Attributes.ButtonsHyperlink#">
  158.     <param name="ButtonsPicture" value="#Attributes.ButtonsPicture#">
  159.     <param name="ButtonsAbout" value="#Attributes.ButtonsAbout#">
  160.     <param name="FTPServer" value="#Attributes.FTPServer#">
  161.     <param name="FTPUsername" value="#Attributes.FTPUsername#">
  162.     <param name="FTPPassword" value="#Attributes.FTPPassword#">
  163.     <param name="ImagesPath" value="#Attributes.ImagesPath#">
  164.     <param name="WDDX" value="#Attributes.WDDX#">
  165.     <param name="BackColor" value="#Attributes.BackColor#">
  166.     <param name="ForeColor" value="#Attributes.ForeColor#">
  167.     
  168. </object>
  169. <input type="hidden" name="TextHTML#Attributes.EditorNumber#" value="#Attributes.HTMLCode#">
  170. </cfoutput>
  171.  
  172. <cfif Attributes.EditorNumber eq Attributes.EditorsInForm>
  173.     <script language="vbscript">
  174.         <cfset x = 1>
  175.         <cfloop condition="x lte Attributes.EditorsInForm">
  176.             <cfoutput>
  177.                 On Error Resume Next
  178.                 document.#Attributes.Form#.eWebEdit#x#.TextHTML = document.#Attributes.Form#.TextHTML#x#.value
  179.                 If Err then
  180.                          alert "The WebEditor.cfm has detected that it can not write to the editor from the hidden field.  This is typicaly because the control has just been installed for the first time and on some machines you need to reboot your PC. Also check to make sure the CAB file is at the correct location"            
  181.                 End If
  182.  
  183.             </cfoutput>
  184.             <cfset x = x + 1>
  185.         </cfloop>
  186.  
  187.         Sub <cfoutput>#Attributes.Button#</cfoutput>_OnClick
  188.             <cfset x = 1>
  189.             <cfloop condition="x lte Attributes.EditorsInForm">
  190.                 <cfoutput>document.#Attributes.Form#.TextHTML#x#.value = document.#Attributes.Form#.eWebEdit#x#.TextHTML </cfoutput>
  191.             <cfset x = x + 1>
  192.             </cfloop>
  193.         End Sub
  194.  
  195.     </script>
  196. </cfif>
  197.  
  198.  
  199.